<%

Function usuario_status(id)

			DIM usu_status
			
			usu_status=0
			
			str = "SELECT status from usuarios where id="&id
  			Set rs = conexao_geral.Execute(str)	
			
			if not rs.eof then
			
				usu_status = rs("status")
				
			End If
			
			usuario_status = usu_status		

End Function


Function usuario_ativo(id)

			DIM usu_ativo
			
			usu_ativo=0
			
			str = "SELECT ativo from usuarios where id="&id
  			Set rs = conexao_geral.Execute(str)	
			
			if not rs.eof then
			
				usu_ativo = rs("ativo")
				
			End If
			
			usuario_ativo = usu_ativo		

End Function

%>